ô >!Teapot.!RunImage Gô By all accounts a fairly whacky teapot demo - coding by Zeus with /ô apologies for the tacky screen compactor. (: 2îŶà < num%=77 F ë12: PòBlankScreen Z
òAssem d òLoad n òPalette x òIterate ŵà …: „ÝòBlankScreen ãn%=0¸15:ûn%,0,0,0:í ªá ´: ¾
ÝòLoad Èãn%=1¸num% ÒDf%(n%)=!scan1%:çf%(n%)>lim% …ñ"Insufficient space dimensioned":à Ü:ÿ"LOAD <Teapot$Dir>.Frames.Frame"+Ã(n%)+" "+Ã~(f%(n%)) æA%=f%(n%):Ö decode ðí úá:ÝòIterateõ"ãn%=1¸num%,!scan1%=f%(n%)6ÿ"FX 19":ãx%=1¸200:í@ Ö decodeJíTý0^áh:rÝòPalette|ê p%,c%,r%,b%,g%ŷ Þ p% &78‘&ÿ"LOAD <Teapot$Dir>.!Grey "+Ã~(p%)Œ ãc%=0¸15¤$r%=p%+c%*&06+&03:g%=r%+1:b%=g%+1®û c%,?r%,?g%,?b%¸íÂû0:û135:ÛÌáÖ:à ÝòAssemêlen%=&C0000ô'Þ gap% len%,f%(num%):lim%=gap%+len%þ.ê scan1,word,scan2,count,end,black,link,pc8ê pass,repeat,ground,loop,input%,output%,black%,end%>scan1=0:scan2=1:black=2:end=3:word=4:count=5:link=14:pc=15 ãpass=0¸2⇦2&P%=gap%+20-gap% ◰160 [OPTpass:.input% EQUD 148D EQUD -1N.scan1% EQUD space%X.output% EQUD 0b.black% EQUD &77777777l.end% EQUD 80*1024-4v;€ .decode⇩:ADR R0,input%:ADR R1,output%:SWI "OS_ReadVduVariables"“8ADR count,scan1%:LDMIA count,{scan1,scan2,black,end}fiADD end,end,scan2¨;²0.repeat LDR word,[scan1],#&04:CMP word,black¼$BEQ ground:STR word,[scan2],#&04Æ9CMP scan2,end:BMI repeat:STR scan1,scan1%:MOV pc,linkÐ@.ground LDR count,[scan1],#&04:MOV R0,R0:MOV R0,R0:MOV R0,R0Ú?.loop STR black,[scan2],#&04:SUBS count,count,#&01:BPL loopä9CMP scan2,end:BMI repeat:STR scan1,scan1%:MOV pc,linkî]øspace%=P%í áÿ WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks , !teapot ! ¬ d ÿÿÿ ÿÿÿ ÝÝÝ ÝÝÝ »»» »»» −−− −−− www www UUU UUU 333 333 D− D− îî îî Ì Ì Ý Ý îî» îî» U⇦ U⇦ ÿ» ÿ» »ÿ »ÿ pwwwwwwwwwwwwwwwwwwwwwwww pwwwwwwwwwwwwwwwwwwwwwwww pwwwwwwwwwG#""CwwwwwwwwwwDDpwwwwwwww#"CCD%3wwwwwwwwwDDpwwwwwww24#"""BFrwwwwwwwwDDpwwwwww#4""""""R#wwwwwwwwDDpwwwww'C""U""""b2rwwww7UsDDpwwwwwR""TD""""B""wwwwSUrDDpwwww'4"2CD"""""23rww'TTwDDpwwwwC2""33"""""3##ww'5ewDDpwwwwB"32B3322"3322ww2TuwDDpW433B32#####"232##swBCwwDDpG3332#322223"33#33s'4UwwDDpWtwG#3#3#33"3CC3#322TtwwDDpGTwW322#33"C3333333CCtwwDDpG#sG4$""""33D44C333CEwwwDDpw4#GDD4CDDDDCCC33444DwwwDDpwG3RTDEDDDDD44434CDDuwwwDDpwwWCDDTDDD4DCCCC3DEuwwwwDDpwwwEEEDDEDD4D444DDUwwwwwDDpwwwGTTTDDD4DDCDCCUtwwwwwDDpwwwWEEETDEDDCDCDDDwwwwwwDDpwwwgETTDDDDDDDDDCTwwwwwwDDpwwwwUEEEEEEDDCDDDtwwwwwwDDpwwwwUTTTTDDDEDDCDuwwwwwwDDpwwwwWTEEEEEEDDEDTwwwwwwwDDpwwwwwUTTTTDDEEDEuwwwwwwwDDpwwwwwWEUEEEEDDUUwwwwwwwwDDpwwwwwwUEUUTTUTUvwwwwwwwwDDpwwwwwwgVUUUUTUvwwwwwwwwwDDpwwwwwwwgUTEeUvwwwwwwwwwwDDpwwwwwwwwwwwwwwwwwwwwwwwwDD DD ÿÿ ÿÿ ÿÿ ðÿÿÿÿ ÿÿ ÿÿÿÿÿÿÿ ÿÿ ÿÿÿÿÿÿÿÿ ÿÿ ÿÿÿÿÿÿÿÿÿÿ ÿÿ ðÿÿÿÿÿÿÿÿÿÿ ðÿ ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ÿÿ ðÿÿÿÿÿÿÿÿÿÿÿÿ ðÿÿ ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ðÿÿ ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ÿÿ ðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ÿÿ ðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿ ÿÿ ð ðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ðÿ ðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ðÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ðÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ðÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ðÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ðÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ÿÿÿÿÿÿÿÿÿÿÿ ÿÿ ðÿÿÿÿÿÿÿÿÿÿ ÿÿ ÿÿÿÿÿÿÿÿÿ ÿÿ ðÿÿÿÿÿÿÿ ÿÿ ðÿÿÿÿÿ ÿÿ ÿÿ ÿÿrks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks WonderWorks ( L MemAlloc MemAlloc util 0.11 (06 Dec 1988) esiSystemSize eD ÿ ú \ RMASize $ ÿ Ï < ScreenSize Bô ÿ ¬ SpriteSize fÔ ÿ … ì FontSize DMF´ ÿ g Ì RAMFSSize _h‘ ÿ B ¨ RMAFree l ÿ C ¸ SpriteFree up ÿ ] À FontFree th… ÿ o Ü @-é+ ã ë ã( ë €½è*SystemSize allows you to set the system heap size in Kbytes. If it is not possible to obtain this amount of memory, the optional * command will be executed.Syntax: *SystemSize <size> [<*command>] e @-é* ãÚ ë ãð ë €½è*RMASize allows you to set the RMA size in Kbytes. If it is not possible to obtain this amount of memory, the optional * command will be executed.Syntax: *RMASize <size> [<*command>] @-é . 㦠ë ã¼ ë €½è*ScreenSize allows you to set the screen memory size in Kbytes. If it is not possible to obtain this amount of memory, the optional * command will be executed.Syntax: *ScreenSize <size> [<*command>] @-é* ãn ë ã☓ ë €½è*SpriteSize allows you to set the system sprite size in Kbytes. If it is not possible to obtain this amount of memory, the optional * command will be executed.Syntax: *SpriteSize <size> [<*command>] @-é+ ã6 ë ãL ë €½è*FontSize allows you to set the font cache size in Kbytes. If it is not possible to obtain this amount of memory, the optional * command will be executed.Syntax: *FontSize <size> [<*command>] ge @-é* ãÿ ë ã ë €½è*RAMFSSize allows you to set the RAM disc size in Kbytes. If it is not possible to obtain this amount of memory, the optional * command will be executed.Syntax: *RAMFSSize <size> [<*command>] fre @-é* ãÈ ë -é ã ï ½èQà J
-é ã\ ï á ½è ŵà ãÑ ë €½è*RMAFree allows you to set the free space in the RMA in Kbytes. If it is not possible to do this, the optional * command will be executed.Syntax: *RMAFree <free space> [<*command>] on @-é* ã ë -é ã. ï Bà ½èQà J
-é ã\ ï á ½è ŵà ã• ë €½è*SpriteFree allows you to set the free space in the system sprite area in Kbytes. If it is not possible to do this, the optional * command will be executed.Syntax: *SpriteFree <free space> [<*command>] @-é+ ã@ ë -é 〠ï Bà ½èQà J
-é ã\ ï á ½è ŵà ãH ë €½è*FontFree allows you to set the free space in the font cache in Kbytes. If it is not possible to do this, the optional * command will be executed.Syntax: *FontFree <free space> [<*command>] a @-é á ã! ï% á Ñå Pã
p°áûÿÿZp°á0£à Sá0C `¦à@Tâøÿÿ 5ã `fBp áx ½è Rá 0› ›ûÿÿ
A@ ã◰ ⇨èpBBp Qq‰à –å Pã
€‘å Xá p AøÿÿJ ⇨å ‘å‘⇨â¼ÿÿê ½è¼•â
â? Êã Pã°°• P㸰• PãÀ°• PãÈ°•€ ãŶ X-é †å
€áz ë p á` ဠá X‡è †å‘ ㌠áP áà ãÐMâP™çà^â' J P ã@œç ãQ áAâ0 ã9 á0Câ â á ã4 à Rá P @ PŶá9 áQâôÿÿZèÿÿJ €€€€€€€€€€€€LLLL€€€€LLLL€¢€¢LnLn€¢€¢LnLn€¢€¢LnLn³’³’]] ‘†å †è°⇧✠à ÀLàp ã€jâx ápGâà‡å ã ™å°Kâ A‰à `“å Vã
ã ☓å@™â P“å Uã `☓
Vã P☓
”å„å Pá Z P☓å@ á P“åñÿÿê `☓å@ á `“åíÿÿê@‡å Tãb
Tã-
0 “è%X á`Åáa áV…àPàj á 0àã6 á0 “è%X á`Åáa áV…à`à`fàj á àã2& á _ á%^‡ç`Pà
Vã `’å`Æá0à`ŷá`Ŵä `‘å`Æá à`ŷá `€åÚÿÿ
PŴä QáüÿÿÖÿÿê `’å à`Æá à`ŷá `ŴåÏÿÿê`™â P„å Uã
0”å Sá` øÿÿ ”å ŷåõÿÿê@‡å Tã$
a “èPEàP☓å @°áúÿÿ`™â ã P„å @”å Tã
0“å”å “å Pá J` áP á@°á
0“å á “åõÿÿê @ŷå 0Ŷå P☓å` áP á@ á` á á á ŵâêÿÿê Rãßÿÿ À…à [ã{ÿÿЙâЙâÿC½èð°áÐMâ é ã ã ã 0 ã @ ã P ã ` ã p ãÿ ®èÀ\âüÿÿЙâÿC½è •âòfiãæ Insufficient workspace specified ± ` á P á @”å 0“å
ê0 ½è T½è` á Tá‹
Jàh Pã×ÿÿJP á @”å 0“å ”å“å Ráóÿÿ
T-é T è
Rá
QAìÿÿJ ^á ^AéÿÿJ Rá ›E „U8 -éH”Iŷ “IH“Yŷ ”Y#8 á! á -é
ô >Gen2 : +ÿ"RMEnsure DriverUtils 0 RMLoad Driver" ( ë12: 2 num%=77 < òPalette F
òAssem P
òSetup ZòLoadData d#òCompactVertices(vertex%,edge%) n!òCompactEdges(edge%,polygon%) x$òDegenerateEdges(edge%,polygon%) ŵ(òCrossReferenceEdges(edge%,polygon%) …#òRotate(vertex%,polygon%,arb()) „ÿ"MOUNT 0" ÿ"Dir !Teapot.Frames" ª ´ ãframe%=1¸num% ¾5 theta=frame%*2*¯/num%:cst=œ(theta):snt=µ(theta) È òGetTransformation Ò% òRotate(vertex%,polygon%,arb()) Ü) òVertexNormals(vertex%,edge%,list%) æ Û ð òDrawTeapot ú, òProcessNoise(x1%,y1%,x1%+x2%,y1%+y2%) òCrunch í"à,:6:@ ÝòSetupJ ox%=640:oy%=512:ï29,ox%;oy%;T+x1%=260-ox%:y1%=200-oy%:x2%=760:y2%=680^2Þ vertex% &03,edge% &03,polygon% &03,null% &03h5Þ px(2,2),py(2,2),pz(2,2),mx(2,2),my(2,2),mz(2,2)r%Þ fun(2,2),inv(2,2),arb(2,2),p(2)|ãn%=0¸2:inv(n%,n%)=1:íŷ'theta=1.1:cst=œ(theta):snt=µ(theta)‘3ãrow%=0¸2:ãcol%=0¸2:óq$:px(row%,col%)= (q$):í:íŒ%theta=2:cst=œ(theta):snt=µ(theta)¤3ãrow%=0¸2:ãcol%=0¸2:óq$:py(row%,col%)= (q$):í:í®arb()=px().py()¸len%=&90000:!null%=0Â@Þ start% len%-1,v%(3),e%(3):stack%=start%:end%=start%+len%-4Ìper%=2000:sf=100Ö ô Direction of light sourceàsx=1000:sy=500:sz=100êáô:þÝòGetTransformation÷3ãrow%=0¸2:ãcol%=0¸2:óq$:px(row%,col%)= (q$):í:í 3ãrow%=0¸2:ãcol%=0¸2:óq$:py(row%,col%)= (q$):í:í&3ãrow%=0¸2:ãcol%=0¸2:óq$:pz(row%,col%)= (q$):í:í03ãrow%=0¸2:ãcol%=0¸2:óq$:mx(row%,col%)= (q$):í:í:3ãrow%=0¸2:ãcol%=0¸2:óq$:my(row%,col%)= (q$):í:íD3ãrow%=0¸2:ãcol%=0¸2:óq$:mz(row%,col%)= (q$):í:íN5fun()=mx().pz():arb()=fun().inv():inv()=mz().px()Xáb:lÝòDrawTeapotvô Set shading constants€%kdr=0.5:ksr=0.5:Ia=0.2:Is=1.0:n=1⇩õ“fiô Depthsort polygons¨ A%=!polygon%:Ö depthsort²)p%=!answer:d%=!depth:s%=list%:exit%=£¼ çd%=&FFFFFFF …exit%=¹:å™TnDÆÐ/e1%=p%!&18:e2%=p%!&1C:e3%=p%!&20:e4%=p%!&24ÚòCyclic(p%,s%)ä1input%=list%+&20:s%=input%:v%=list%:dmin=1E37î6pi=p%!&08/&10000:pj=p%!&0C/&10000:pk=p%!&10/&10000ø6ô Directionalise all vertex normals as we go along v%=list%õ s%!&00=s%+&10*9 x=|(v%!&04+&08):y=|(v%!&04+&10):z=|(v%!&04+&18)-per%4# ô Calculate screen projections> f=-per%/z:x%=f*x:y%=f*yH" ô Calculate viewing directionR5 mag=¶(x*x+y*y+z*z):vi=-x/mag:vj=-y/mag:vk=-z/mag\* ô Calculate direction of light sourcef si=sx-x:sj=sy-y:sk=sz-zp mag=¶(si*si+sj*sj+sk*sk)z" si=si/mag:sj=sj/mag:sk=sk/mag☓& ô Calculate surface normal vector‰L ni=!(v%!&04+&20)/&10000:nj=!(v%!&04+&24)/&10000:nk=!(v%!&04+&28)/&10000—7 cos=ni*pi+nj*pj+nk*pk:çcos<0 …ni=-ni:nj=-nj:nk=-nk¢$ ô Calculate transient constants¬ cosH=(vi*si+vj*sj+vk*sk)/2¶ cosS=(ni*si+nj*sj+nk*sk)À ô Calculate colour of pointÊ) col=ksr*Is*cosH^n+kdr*Is*cosS+kdr*IaÔ? col%=¨(col*256)<<8:col%=col%☓(col%<<8):col%=col%☓(col%<<8)Þ s%!&04=x%è s%!&08=y%ò s%!&0C=col%ü s%+=&10:v%=!v%ýv%=list%#!(s%-&10)=input%:type%=%0001000$2È−"Driver_GouraudPolygon",s%,end%,input%,type%.
ýexit%8B ô Reset "done" flags to zeroLp%=!polygon%V È”p%<>0`p%!&04=0:p%=!p%jÎtá~:⇦ÝòDrawEdges‹æ0,0†e%=!edge%¦ È”e%<>0°6x1=|(e%!&08+&08):y1=|(e%!&08+&10):z1=|(e%!&08+&18)º6x2=|(e%!&0C+&08):y2=|(e%!&0C+&10):z2=|(e%!&0C+&18)Ä)f1=per%/(per%-z1):x1%=f1*x1:y1%=f1*y1Î)f2=per%/(per%-z2):x2%=f2*x2:y2%=f2*y2Øìx1%,y1%:ßx2%,y2%â
e%=!e%ìÎöá :
ÝòLoadDataF=("PolyPot") è#F,vn%,en%,pn%(2ô Load in vertices<!vertex%=stack%Fãv%=0¸vn%:è#F,x,y,zP(x=(x+0.0)*sf:çx<0.001 €x>-0.001 …x=0Z(y=(y-1.5)*sf:çy<0.001 €y>-0.001 …y=0d(z=(z+0.0)*sf:çz<0.001 €z>-0.001 …z=0nstack%!&00=stack%+&2Cxstack%!&04=0ŵstack%!&0C=0…stack%!&14=0„stack%!&1C=0 |(stack%+&08)=xª|(stack%+&10)=y´|(stack%+&18)=z¾stack%!&20=0Èstack%!&24=0Òstack%!&28=0Üstack%+=&2Cæíð!(stack%-&2C)=0úô Load in edges!edge%=stack%ãe%=0¸en%:è#F,v1%,v2%"stack%!&00=stack%+&18,stack%!&04=06 stack%!&08=!vertex%+v1%*&2C@ stack%!&0C=!vertex%+v2%*&2CJstack%+=&18Tí:!(stack%-&18)=0^hô Load in polygonsr!polygon%=stack%|!ãp%=0¸pn%:è#F,e1%,e2%,e3%,e4%ŷstack%!&00=stack%+&28‘stack%!&04=0Œ stack%!&18=!edge%+e1%*&18¤ stack%!&1C=!edge%+e2%*&18® stack%!&20=!edge%+e3%*&18¸ stack%!&24=!edge%+e4%*&18Âstack%+=&28Ìí:!(stack%-&28)=0Ölist%=stack%àÙ#Fêáô:þ"ÝòRotate(vertex%,polygon%,t())v%=!vertex% È”v%<>0 0p(0)=|(v%+&08):p(1)=|(v%+&10):p(2)=|(v%+&18)&p()=t().p()00|(v%+&08)=p(0):|(v%+&10)=p(1):|(v%+&18)=p(2):
v%=!v%DÎNp%=!polygon%X È”p%<>0bòCyclic(p%,list%)lòNormalVector(list%)v"ô Find mean postion of polygon€ v%=list%:mx=0:my=0:mz=0:n%=0⇩õ“9mx+=|(v%!&04+&08):my+=|(v%!&04+&10):mz+=|(v%!&04+&18)fin%+=1:v%=!v%¨ýv%=list%²#mx=mx/n%:my=my/n%:mz=mz/n%-per%¼ dist=¶(mx*mx+my*my+mz*mz)Æ$mx=mx/dist:my=my/dist:mz=mz/distÐ"ô Directionalise normal vectorÚ6cos=mx*ni+my*nj+mz*nk:çcos>0 …ni=-ni:nj=-nj:nk=-nkäp%!&08=ni*&10000îp%!&0C=nj*&10000øp%!&10=nk*&10000p%!&14=-dist*256
Èfi L 8 8 4 4 0 ü ø ø ø ð ð ô ì è è è è ä ä à à Ü Ü Ø Ø Ô Ð Ð ‘Ì ‘‘‘Ì ‘‘‘‘Ì È È È È ‘ È ‘È ‘‘‘Ä Ä Ä Ä Ä Ä À ‘‘’ À ’‘’‘‘Ä ‘Ä ’Ä Ä À À À À À ’’Ä Ä À — ‹⇧⇨⇨⇨⇦⇦⇦⇦⇨⇩⇧ ’ “ ⇦◰ŵŴ€
